perm filename TMP[TEX,DEK] blob
sn#716794 filedate 1983-06-26 generic text, type T, neo UTF8
1) TEX.PAS[TEX,DEK] and 2) TEX.PSC[TEX,DEK] 6-26-83 15:12 pages 1,1
**** File 1) TEX.PAS[TEX,DEK]/1P/77L
1) SKIPLINE:INTEGER;{:485}{504:}CURNAME:STRNUMBER;CURAREA:STRNUMBER;
1) CUREXT:STRNUMBER;{:504}{505:}AREADELIMITE:POOLPOINTER;
1) EXTDELIMITER:POOLPOINTER;{:505}{512:}
1) TEXFORMATDEF:PACKED ARRAY[1..18]OF CHAR;{:512}{519:}
**** File 2) TEX.PSC[TEX,DEK]/1P/77L
2) {:485}{504:}CURNAME:STRNUMBER;CURAREA:STRNUMBER;CUREXT:STRNUMBER;{:504}
2) {505:}AREADELIMITE:POOLPOINTER;EXTDELIMITER:POOLPOINTER;{:505}{512:}
2) TEXFORMATDEF:PACKED ARRAY[1..18]OF CHAR;{:512}{519:}
***************
**** File 1) TEX.PAS[TEX,DEK]/1P/246L
1) EQTB[3562].HH.RH:=0;EQTB[3507].HH.RH:=14;EQTB[3482].HH.RH:=5;
1) EQTB[3597].HH.RH:=15;EQTB[3470].HH.RH:=9;
1) FOR K:=48 TO 57 DO EQTB[3982+K].HH.RH:=K+28672;
1) FOR K:=65 TO 90 DO BEGIN EQTB[3470+K].HH.RH:=11;
**** File 2) TEX.PSC[TEX,DEK]/1P/245L
2) EQTB[3562].HH.RH:=0;EQTB[3482].HH.RH:=5;EQTB[3597].HH.RH:=15;
2) EQTB[3470].HH.RH:=9;FOR K:=48 TO 57 DO EQTB[3982+K].HH.RH:=K+28672;
2) FOR K:=65 TO 90 DO BEGIN EQTB[3470+K].HH.RH:=11;
***************
**** File 1) TEX.PAS[TEX,DEK]/1P/311L
1) END;{:259}{510:}PROCEDURE PRINTFILENAM(N,A,E:INTEGER);BEGIN PRINT(N);
1) PRINT(E);PRINT(A);END;{:510}{691:}PROCEDURE PRINTSIZE(S:INTEGER);
**** File 2) TEX.PSC[TEX,DEK]/1P/309L
2) END;{:259}{510:}PROCEDURE PRINTFILENAM(N,A,E:STRNUMBER);BEGIN PRINT(N);
2) PRINT(E);PRINT(A);END;{:510}{691:}PROCEDURE PRINTSIZE(S:INTEGER);
***************
**** File 1) TEX.PAS[TEX,DEK]/1P/1284L
1) CURINPUT.STARTFIELD:=FIRST;CURINPUT.STATEFIELD:=1;
1) PAGESTACK[CURINPUT.INDEXFIELD]:=PAGE;CURINPUT.NAMEFIELD:=0;END;{:322}
1) {323:}PROCEDURE ENDFILEREADI;BEGIN FIRST:=CURINPUT.STARTFIELD;
1) PAGE:=PAGESTACK[CURINPUT.INDEXFIELD];
**** File 2) TEX.PSC[TEX,DEK]/1P/1282L
2) CURINPUT.STARTFIELD:=FIRST;CURINPUT.STATEFIELD:=1;CURINPUT.NAMEFIELD:=0;
2) PAGESTACK[CURINPUT.INDEXFIELD]:=PAGE;END;{:322}{323:}
2) PROCEDURE ENDFILEREADI;BEGIN FIRST:=CURINPUT.STARTFIELD;
2) PAGE:=PAGESTACK[CURINPUT.INDEXFIELD];
***************
**** File 1) TEX.PAS[TEX,DEK]/1P/1980L
1) BEGIN IF STRPTR+3>MAXSTRINGS THEN OVERFLOW(130,MAXSTRINGS-INITSTRPTR);
1) TEX.PAS[TEX,DEK] and 2) TEX.PSC[TEX,DEK] 6-26-83 15:12 pages 1,1
1) CURNAME:=STRPTR;
**** File 2) TEX.PSC[TEX,DEK]/1P/1978L
2) BEGIN IF STRPTR+3>MAXSTRINGS THEN OVERFLOW(130,MAXSTRINGS);
2) CURNAME:=STRPTR;
***************
**** File 1) TEX.PAS[TEX,DEK]/1P/5316L
1) IF EQTB[4141].INT>0 THEN{1319:}
1) IF JOBNAME>0 THEN BEGIN WRITELN(LOGFILE,' ');
**** File 2) TEX.PSC[TEX,DEK]/1P/5314L
2) IF EQTB[4141].INT<>0 THEN{1319:}
2) IF JOBNAME>0 THEN BEGIN WRITELN(LOGFILE,' ');
***************